Thema Datum  Von Nutzer Rating
Antwort
15.03.2017 20:51:10 Max
NotSolved
Blau Seitenansicht schließen -> Dokument schließen
16.03.2017 21:55:05 BigBen
NotSolved
17.03.2017 00:50:05 Max
NotSolved
19.03.2017 12:43:36 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen
Datum:
16.03.2017 21:55:05
Views:
615
Rating: Antwort:
  Ja
Thema:
Seitenansicht schließen -> Dokument schließen

Hallo,

eine ähnliche Aufgabenstellung hatte ich auch schon mal gehabt und wie folgt gelöst:

Sub TEST()
    ActiveDocument.PrintPreview
    
    While ActiveDocument.Windows(1).View = wdPrintPreview
        VBA.DoEvents
    Wend
    ActiveDocument.Close False
    
End Sub

Dieser Befehl schaltet das aktuelle Dokumernt in einer Seitenvorschau-Modus. Anschließend wird in der while-Wend-Schleife gewartet, bis der Anwender die Seitenvorschau wieder beendet. Der Befehl DoEvents bewirkt, dass der Anwender während der Ausführung zusätzliche Aktionen durchführen kann, wie z.B. das Schließen der Seitenvorschau.

Nach dem Schließen der Seitenvorschau wird das aktuelle Dokument ohne zu speichern geschlossen.

Wichtige Info: Beim damaligen Projekt wurden vor der Seitenvorschau noch viele weitere Änderungen am Dokument vorgenommen. Es ist dann vorgekommen, dass die While-Wend-Schleife nicht mehr korrekt ausgeführt wurde. Falls dies der Fall sein sollte, kann auch mit dem Vefehl OnTime die Ünerwachung der Seitenvorschau 1 Sekunde nach dem Aufruf des Befehls OnTime gestartet werden.

LG, BigBen


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
15.03.2017 20:51:10 Max
NotSolved
Blau Seitenansicht schließen -> Dokument schließen
16.03.2017 21:55:05 BigBen
NotSolved
17.03.2017 00:50:05 Max
NotSolved
19.03.2017 12:43:36 BigBen
NotSolved